home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 January
/
Ahoy_Magazine_86-01_1986_Double_L.d64
/
c-64_128 babbler
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
637b
|
25 lines
10 rem **** ahoy! speaks ****
20 rem ***c-64/128 version***
30 rem **by morton kevelson**
120 print"[147]":poke53280,0:poke53281,6:poke646,1
125 print"please read instructions in magazine..."
130 drt=56577:ddr=56579:dfl=56578:dcb=56576:rem c-64 user port
140 poke ddr,127:rem set drt for output
150 a=peek(dfl)or 4
160 poke(dfl),a:rem set bit 2 for input
165 gosub 3110
2000 rem**speak!!**
2010 for i=1 to 17
2015 read x
2020 if peek(drt)>127 goto 2020
2030 poke drt,x
2035 gosub3100
2040 next i:end
3100 poke dcb,peek(dcb)and251:rem set control line low, utter allophone
3110 poke dcb,peek(dcb)or4:rem set control line high, ready for next
3120 return
3999 rem allophone data
4000 data 23,27,5,3
4010 data 8,24,16,24,33,58,3
4020 data 25,31,43,52,55,3